perm filename STUF.F4[SCR,LCS] blob
sn#375400 filedate 1978-08-23 generic text, type C, neo UTF8
COMMENT ā VALID 00002 PAGES
C REC PAGE DESCRIPTION
C00001 00001
C00002 00002 DIMENSION I(72),MM(5)
C00003 ENDMK
Cā;
DIMENSION I(72),MM(5)
DATA LA/"605004020100/,LZ/"751004020100/,MAG/"200000000000/
TYPE 1
ACCEPT 2,I
1 FORMAT(' TYPE '/)
2 FORMAT(72A1)
3 FORMAT(1X10A5)
M=1
L=0
DO 5 K=1,72
NN=I(K)
IF(L.NE.0)GO TO 9
IF(NN.EQ.' ')GO TO 8
C IGNORE LEADING BLANKS
9 L=L+1
IF(NN.GE.LA.AND.NN.LE.LZ)I(K)=NN-MAG
C ABOVE CHANGES LOWER CASE LETTERS TO UPPER.
MM(L)=I(K)
IF(NN.NE.'.'.AND.NN.NE.' '.AND.NN.NE.';')GO TO 5
CC IF(K-M.EQ.5)GO TO 6
CC DO 7 LL=K,M+4
CC MM(L)=' '
CC7 L=L+1
6 CALL STUFIT(J,MM,L-1)
TYPE 3,J
4 ACCEPT 2,JJ
L=0
8 M=K+1
5 CONTINUE
END